HPAVC/HPAVC CD-ROM.iso/CON-03A.ZIP/ANSI.PAS

Pascal/Delphi Source File | 1995-10-25 | 5KB | 135 lines

unit ansi;

interface

uses crt,
     dos;

procedure write_picture(pic : string);

implementation


const
  CONFIGA_WIDTH=80;
  CONFIGA_DEPTH=25;
  CONFIGA_LENGTH=755;
  CONFIGA : array [1..755] of Char = (
     #8,#16,'▓',#26, #3,'█','▀',' ',' ',#13,'■','▀','▀','█','█','█',' ',
    ' ', #5,#26, #3,'▄',' ',' ', #1,'▄','▄','■','▀','█',#25, #2, #9,'▄',
    '■','▀',' ',#10,'▄','▄','■','▀','█','█',' ', #2,'▄','■',' ', #6,'▄',
    '■','▀','▓','█','▄',' ',#14,'■','▀','▀','▀','▄',#25, #2, #7,'■','▀',
    '▀','█','█','█',' ',#15,'█','█',#25, #2,'█',' ', #8,'▓',#26, #4,'█',
    '▓',#24,#26, #3,'█','▓',' ',#13,'█',#25, #3,'▄','▄','▄',' ', #5,'■',
    ' ',' ','█','▓','█',' ', #1,'█','█',' ',' ','█',#25, #2, #9,'▀','▀',
    '█',' ',#10,'█','█',' ','▀','▀',' ',' ', #2,'█','█',' ', #6,'█','█',
    #25, #3,#14,'▄','▓','▀','▀','█','█',' ', #7,'█',#25, #3,'▄','▄','▄',
    ' ',' ',#15,'▀','▀','▀','■','█',' ', #8,#26, #6,'█',#24,#26, #4,'█',
    '▄',' ',#13,#26, #5,'▀',' ',' ', #5,#26, #4,'▀',#25, #5, #1,'█',' ',
     #9,#26, #3,'█','▓',' ',#10,'▀','▀',#25, #4, #2,'▀','▀',' ', #6,'▀',
    '▀',#25, #4,#14,#26, #4,'▀',' ',' ', #7,#26, #5,'▀',#25, #4,#15,'▄',
    '▄','▓',' ', #8,#26, #6,'█',#24,#26, #6,'█',#26, #5,'▄','█','█',#26,
     #4,'▄',#26, #4,'█','▄',#25, #7,'▄','▄',#26, #4,'█','▄','▄','▓','▄',
    '▄',#26, #4,'█',#26, #4,'▄','▓',#26, #7,'▄','█','█','█','▄',#25, #2,
    '▄',#26, #6,'█',#24,#26,'O','█',#24,#26,'O','█',#24,#26, #5,'█','▓',
    '█','█','▓',#26,' ','▀','▓',#26,'#','█',#24,#26, #5,'█',' ',#15,'┌',
    '─',#13,'─', #5,'┤', #9,#17,'▌','C','o','n','s','p','i','r','a','c',
    'y',' ','M','a','i','n',' ','C','o','n','f','i','g','u','r','a','t',
    'i','o','n','▐', #5,#16,'├',#26,#28,'─','┐',' ', #8,'▓',#26, #4,'█',
    #24,#26, #5,'█',' ',#13,'│',' ', #7,'B','u','l','l','e','t','i','n',
    ' ','B','o','a','r','d',' ','N','a','m','e',' ', #5,'│',#25,')','│',
    ' ', #8,#26, #5,'█',#24,#26, #5,'█',' ', #5,'│',' ', #7,'S','y','s',
    't','e','m',' ','O','p','e','r','a','t','o','r',#25, #4, #5,'│',#25,
    ')','│',' ', #8,#26, #5,'█',#24,#26, #5,'█',' ', #5,'│',' ', #7,'B',
    'B','S',' ','P','h','o','n','e',' ','N','u','m','b','e','r',#25, #3,
     #5,'│',#25,')','│',' ', #8,#26, #5,'█',#24,#26, #5,'█',' ', #5,'│',
    ' ', #7,'R','e','g','i','s','t','r','a','t','i','o','n',' ','C','o',
    'd','e',#25, #2, #5,'│',#25,')','│',' ', #8,#26, #5,'█',#24,#26, #5,
    '█',' ', #5,'│',' ', #7,'M','a','i','n',' ','D','i','r','e','c','t',
    'o','r','y',#25, #5, #5,'│',#25,')','│',' ', #8,#26, #5,'█',#24,#26,
     #5,'█',' ', #5,'│',' ', #7,'D','a','t','a',' ','D','i','r','e','c',
    't','o','r','y',#25, #5, #5,'│',#25,')','│',' ', #8,#26, #5,'█',#24,
    #26, #5,'█',' ', #5,'│',' ', #7,'T','e','x','t',' ','F','i','l','e',
    ' ','D','i','r','e','c','t','o','r','y',' ', #5,'│',#25,')',#13,'│',
    ' ', #8,#26, #5,'█',#24,#26, #5,'█',' ', #5,'└',#26,#20,'─','┴',#26,
    '&','─',#13,'─','─',#15,'─','┘',' ', #8,'▓',#26, #4,'█',#24,#26,'H',
    '█','▓','▓',#26, #4,'█',#24,#26,'O','█',#24,#26,'O','█',#24,#26,'O',
    '█',#24,#26,'O','█',#24,#26,'O','█',#24,#26,'O','█',#24,#26,'O','█',
    #24,#23,#25, #5, #0,'c','o','n','s','p','i','r','a','c','y',' ','b',
    'u','l','l','e','t','i','n',' ','b','o','a','r','d',' ','s','o','f',
    't','w','a','r','e',' ','v','0','.','2','α',' ','╓',' ','(','c',')',
    ' ','1','9','9','5',' ','g','r','o','o','v','e','n',' ','d','e','s',
    'i','g','n','s',#25, #6,#24);

type screentype = array [0..755] of byte;

var
  ScreenAddr : ScreenType absolute $B800:$0000;

procedure UNCRUNCH (var Addr1,Addr2; BlkLen:Integer);
begin
  inline (
    $1E/
    $C5/$B6/ADDR1/
    $C4/$BE/ADDR2/
    $8B/$8E/BLKLEN/
    $E3/$5B/
    $8B/$D7/
    $33/$C0/
    $FC/
    $AC/
    $3C/$20/
    $72/$05/
    $AB/
    $E2/$F8/
    $EB/$4C/
    $3C/$10/
    $73/$07/
    $80/$E4/$F0/
    $0A/$E0/
    $EB/$F1/
    $3C/$18/
    $74/$13/
    $73/$19/
    $2C/$10/
    $02/$C0/
    $02/$C0/
    $02/$C0/
    $02/$C0/
    $80/$E4/$8F/
    $0A/$E0/
    $EB/$DA/
    $81/$C2/$A0/$00/
    $8B/$FA/
    $EB/$D2/
    $3C/$1B/
    $72/$07/
    $75/$CC/
    $80/$F4/$80/
    $EB/$C7/
    $3C/$19/
    $8B/$D9/
    $AC/
    $8A/$C8/
    $B0/$20/
    $74/$02/
    $AC/
    $4B/
    $32/$ED/
    $41/
    $F3/$AB/
    $8B/$CB/
    $49/
    $E0/$AA/
    $1F);
end;

procedure write_picture(pic : string);
begin
  if pic= 'configa' then UnCrunch (configa,ScreenAddr[ (1 * 2) + (1 * 160) -162],configa_LENGTH);
end;

begin
end.